ASM8C :f1:miprev.m80 


ISIS-II 8080/8085 MACRO ASSEMBLER, V4.0 MIPRCV PAGE 1 
MIP"ISIS RECELVE 


LOC OBJ " LINE SCURCE STATEMENT 


STITLEC’MIP-ISIS RECEIVE’) 
,LSISSMIPSrcv: 


f 

> THIS RCUTINE IS CALLED BY USERS TO DETERMINE IF ANYTHING 

7 HAS ARRIVEC FOR THEM. THE PORT THAT IS TO BE CHECKED IN 

> IN THE C REGISTER AND MUST BE O-3 (NO CHECKING IS CONE). 

, IT CALLS INTASK TO SE& IF ANYTHING IS IN THE QUEUE. IF THERE 
> IS, THEN INTASK WILL PLACE IT,.ON THE PROPER PORT QUEUE. 

7 
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4 cdo, 
| 
12 -declare PStcSmb €1) word external, 
4 
4 NAME MIPRCV - 
1 PUBLIC MIPRCV 
1 EXTRN PTOMB,sINTASK 
4 CESEG 
18 ;Miptircv: 
19 7 procedure(Port) werd public, 
20 7 declare Port byte, 
21 7 Msgptr word, 
22 7 Msglink based Msgptr-word, - 
23 
24 7 Megptr = PS$totmb (Port), 
00c0 C5 25 MIPRCV: FUSH 8 
00C1 CDOCOC c 26 CALL INTASK ry DO POLL FIRST 
0004 C1 27 POP B 
0005 G600 28 MVI B, 0 
OoC7 21000C Ee 29 LXI H,PTCM3 
OOCA QO9 30 CAD 3 
0008 Q9Y 31 CAO S 
OO0C SE 32 MOV Eek 
ooccn 23 33 INX i 
QOOCE 56 34 MOV De, 
OOCF EB 35 XCHG . > MSGPTR IS IN H/L. PTR TO PSTOSMB IS IN D/E 
36 7 aif Mscptr <> C then P$toSmbCport) = Msglink, 
0010 7C 37 MOV AvH 
0011 85 38 ORA L 
001z2 C8 39 RZ 
0013 5 40 PUSH di 7 SAVE MSGPTR 
0014 4E : 41 MOV Cr 
0015 23 42 INX H . 
0016 46 (43 MOV BM 7 LINK IN MSGPTR IS IN B/C 
0017 c8 | ; 44 XCHG , PTR TO P$TOSMB ITS IN H/L 
0018 70 45 MOV M8 
0019 28 46 BCX H 
Q01A 71 47 MOV M,C 
0012 £1 48 FOP . H 
49 7 return Msgotr- 
001C C9 50 RET 
51 send MIPErcv,s 
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MIP-ISIS RECEIVE 


LOC OBJ ee eg SOURCE STATEMENT 


PUBLIC SYMBOLS 
MIPRCV C QQO0C 


EXTERNAL SYMBOLS 
INTASK E— QOOC PTOM8 eé& OOCO 


USER SYMBOLS 
INTASK & QOOC MIPRCV C QOCS PTCMB €& OCCO 


ASSEMBLY COMPLETE, NO ERRORS 


